home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / games / mac / __interesting_stuff__ / hyperlabels_2.0 / background_3165.txt < prev    next >
Text File  |  1990-03-22  |  8KB  |  316 lines
  1. -- background: 3165 from stack: in.0
  2. -- bmap block id: 9600
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Label
  6. ----- HyperTalk script -----
  7. on copyOld
  8.   -- for each label card add the card to the index
  9.   go to first card of background "old Label"
  10.   put the number of first card of this background into firstcard
  11.   put the number of last card of this background into lastcard
  12.   repeat with label = firstcard to lastcard
  13.     go to card label
  14.     choose select tool
  15.     drag from 17,103 to 216,302
  16.     doMenu Copy Picture
  17.     send "mouseUp" to background button "New label"
  18.     doMenu Paste Picture
  19.     drag from 17,103 to 20,70
  20.   end repeat
  21.  
  22. end copyOld
  23.  
  24.  
  25. -- part 1 (button)
  26. -- low flags: 00
  27. -- high flags: 0000
  28. -- rect: left=0 top=290 right=340 bottom=50
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 902 / 902
  31. -- text alignment: 1
  32. -- font id: 0
  33. -- text size: 12
  34. -- style flags: 0
  35. -- line height: 16
  36. -- part name: prev
  37. ----- HyperTalk script -----
  38. on mouseUp
  39.   visual effect wipe right
  40.   go to previous card
  41. end mouseUp
  42.  
  43.  
  44.  
  45. -- part 6 (button)
  46. -- low flags: 00
  47. -- high flags: 8003
  48. -- rect: left=52 top=290 right=340 bottom=102
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 7012 / 7012
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: new label
  57. ----- HyperTalk script -----
  58. -- Script by Chris Christensen written for HyperLabels
  59. on mouseUp
  60.   go to last card of background "Label"
  61.   doMenu "New Card"
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 7 (button)
  67. -- low flags: 00
  68. -- high flags: 8003
  69. -- rect: left=104 top=290 right=340 bottom=154
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 11645 / 11645
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: index
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   go to first card of background "Index"
  81. end mouseUp
  82.  
  83.  
  84.  
  85. -- part 8 (button)
  86. -- low flags: 00
  87. -- high flags: 0000
  88. -- rect: left=462 top=290 right=340 bottom=512
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 26425 / 26425
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: next
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   visual effect wipe right
  100.   go to next card
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 10 (button)
  106. -- low flags: 00
  107. -- high flags: 8003
  108. -- rect: left=208 top=290 right=340 bottom=258
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 26884 / 26884
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: add icon
  117. ----- HyperTalk script -----
  118. -- Script by Chris Christensen written for HyperLabels
  119. on mouseUp
  120.   push card
  121.   go to first card of background "icons"
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 11 (button)
  127. -- low flags: 00
  128. -- high flags: 8003
  129. -- rect: left=156 top=290 right=340 bottom=206
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 20186 / 20186
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: insert
  138. ----- HyperTalk script -----
  139. -- Script by Chris Christensen written for HyperLabels
  140. on mouseUp
  141.   -- determine id of this card
  142.   put word 7 of long name of the target into thiscard
  143.   -- create mouseUp script to get this card
  144.   put "on mouseUp" into line 1 of callback
  145.   put "push card" into line 2 of callback
  146.   put "go to card id " into line 3 of callback
  147.   put thiscard after line 3 of callback
  148.   put "end mouseUp" into line 4 of callback
  149.   -- get the picture
  150.   choose select tool
  151.   drag from 20,70 to 220,272
  152.   doMenu Copy Picture
  153.   -- make the button
  154.   go to last card of background "Index"
  155.   choose button tool
  156.   doMenu New Button
  157.   -- number of button used to determine where on the index page to place
  158.   get number of button "New Button"
  159.   put 20 + ((it - 1) mod 4) * 120 into x
  160.   put 55 + ((it - 1) div 4) * 120 into y
  161.   put it into thebutton
  162.   set showName of button "New Button" to false
  163.   set style of button "New Button" to transparent
  164.   set rectangle of button "New Button" to x,y,x+99,y+99
  165.   set autoHilite of button "New Button" to false
  166.   set script of button "New Button" to callback
  167.   set name of button "New Button" to thiscard
  168.   -- paste the picture
  169.   choose select tool
  170.   doMenu paste picture
  171.   drag from 20,70 to 120,170 with commandKey -- shrink to half
  172.   drag from 120,170 to x,y
  173.   -- is the index full?
  174.   if thebutton = 8 then
  175.     doMenu New Card
  176.   end if
  177.   go to card id thiscard
  178.   choose browse tool
  179. end mouseUp
  180.  
  181.  
  182.  
  183. -- part 12 (button)
  184. -- low flags: 00
  185. -- high flags: 8003
  186. -- rect: left=260 top=290 right=340 bottom=310
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 8538 / 8538
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: catalog
  195. ----- HyperTalk script -----
  196. -- Script by Chris Christensen written for HyperLabels
  197. on mouseUp
  198.   push card
  199.   go to first card of background "volumes"
  200.   put volumes() into field "volumes"
  201. end mouseUp
  202.  
  203.  
  204.  
  205. -- part 13 (button)
  206. -- low flags: 00
  207. -- high flags: 8003
  208. -- rect: left=311 top=290 right=340 bottom=361
  209. -- title width / last selected line: 65535
  210. -- icon id / first selected line: -6047 / 59489
  211. -- text alignment: 1
  212. -- font id: 0
  213. -- text size: 12
  214. -- style flags: 0
  215. -- line height: 16
  216. -- part name: no border
  217. ----- HyperTalk script -----
  218. -- Script by Chris Christensen written for HyperLabels
  219. on mouseUp
  220.   global printstyle
  221.   put short name of the target into name
  222.   if name = "border" then
  223.     set name of target to "no border"
  224.     put "no border" into printstyle
  225.   else
  226.     set name of target to "border"
  227.     put "border" into printstyle
  228.   end if
  229. end mouseUp
  230.  
  231.  
  232.  
  233. -- part 14 (button)
  234. -- low flags: 00
  235. -- high flags: 8003
  236. -- rect: left=363 top=290 right=340 bottom=413
  237. -- title width / last selected line: 0
  238. -- icon id / first selected line: 1007 / 1007
  239. -- text alignment: 1
  240. -- font id: 0
  241. -- text size: 12
  242. -- style flags: 0
  243. -- line height: 16
  244. -- part name: print
  245. ----- HyperTalk script -----
  246. -- Script by Chris Christensen written for HyperLabels
  247. on mouseUp
  248.   hide msg
  249.   global printstyle
  250.   if printstyle = "border" then
  251.     printrect 20,70,220,272
  252.   else
  253.     printrect 21,71,219,271
  254.   end if
  255. end mouseUp
  256.  
  257.  
  258.  
  259. -- part 15 (field)
  260. -- low flags: 01
  261. -- high flags: 4007
  262. -- rect: left=251 top=67 right=267 bottom=487
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 0 / 0
  265. -- text alignment: 0
  266. -- font id: 3
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: Description
  271. ----- HyperTalk script -----
  272. -- Script by Chris Christensen written for HyperLabels
  273. on mouseUp
  274.   put line ClickLine() of bkgnd field "Description" after card field "Contents"
  275.   put return after card field "Contents"
  276. end mouseUp
  277.  
  278.  
  279. -- part 16 (field)
  280. -- low flags: 80
  281. -- high flags: 0004
  282. -- rect: left=258 top=220 right=285 bottom=465
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 0 / 0
  285. -- text alignment: 0
  286. -- font id: 3
  287. -- text size: 12
  288. -- style flags: 0
  289. -- line height: 16
  290. -- part name: author
  291.  
  292.  
  293. -- part 17 (button)
  294. -- low flags: 00
  295. -- high flags: 8003
  296. -- rect: left=415 top=290 right=340 bottom=465
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 2478 / 2478
  299. -- text alignment: 1
  300. -- font id: 0
  301. -- text size: 12
  302. -- style flags: 0
  303. -- line height: 16
  304. -- part name: author
  305. ----- HyperTalk script -----
  306. -- Script by Chris Christensen written for HyperLabels
  307. on mouseUp
  308.   if visible of background field "author" is true
  309.   then
  310.   hide background field "author"
  311. else
  312.   show background field "author"
  313. end if
  314. end mouseUp
  315.  
  316.